home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / misc / FGP210.lha / FGP.c < prev    next >
C/C++ Source or Header  |  1994-09-27  |  34KB  |  1,337 lines
  1. /***************************
  2.  * Fantasy Grand Prix v2.0 *
  3.  *   © 1994 Simon Austin   *
  4.  ***************************/
  5.  
  6. /* Includes */
  7.  
  8. #include <stdio.h>
  9. #include <string.h>
  10. #include <stdlib.h>
  11. #include <ctype.h>
  12.  
  13. /* Defines */
  14.  
  15. #define DRIVERS 100
  16. #define CHASSIS 50
  17. #define ENGINES 50
  18. #define MAXTEAM 100
  19.  
  20. /* Variables */
  21.  
  22. char *ver = "$VER: FGP v2.10 (18/9/94) © S Austin"; /* Amiga Version String */
  23. char *verst = "FGP2 by S Austin, additional design by J Simpson.\n";
  24. char *errst = "Usage: FGP <[-r[n]] [-t[n]] [-d[n]] [filename]>\n";
  25.  
  26. FILE *data_file, *teams_file, *scores_file, *drivers_file, *old_scores,
  27.      *chassis_file, *engine_file; /* Pointers to various files */
  28.  
  29. FILE *grid_file, *results_file, *other_file; /* Old data file pointers */
  30.  
  31. char data_name[256], grid_name[256], results_name[256], other_name[256];
  32.  
  33. char *teams_name = "teams.fgp2", *scores_name = "scores.fgp2", 
  34.      *drivers_name = "drivers.fgp2", *chassis_name = "chassis.fgp2",
  35.      *engine_name = "engine.fgp2", *temp_name = "_tempscores";
  36.  
  37. char store[100], car[100], eng[100], fullname[100], name[100], fnam[100],
  38.      racename[100], code[4], racecheck[100];
  39.  
  40. char owner[MAXTEAM][100], teamname[MAXTEAM][100], namea[DRIVERS][100],
  41.      fnama[DRIVERS][100], chassisa[CHASSIS][100], enginesa[ENGINES][100],
  42.      racenames[16][100];
  43.  
  44. int  highest, highscore; /* used to produce league table */
  45.  
  46. int  driver1[MAXTEAM], driver2[MAXTEAM], driver3[MAXTEAM], 
  47.      chassis[MAXTEAM],engine[MAXTEAM], scores[MAXTEAM], thisrce[MAXTEAM]; 
  48.                                             /* Team details */
  49.  
  50. int  eflags[ENGINES], cflags[CHASSIS], sflags[MAXTEAM]; 
  51.                                      /* Flags for points calculation */
  52.  
  53. int  grid[DRIVERS], position[DRIVERS], status[DRIVERS], warmup[DRIVERS], 
  54.      nominated, finisher, qualifier; /* Results */
  55.  
  56. int  topsixpts[DRIVERS], awardpts[DRIVERS], incgridpts[DRIVERS],
  57.      warmuppts[DRIVERS], racesc[DRIVERS], retirepts[DRIVERS],
  58.      noqualpts[DRIVERS], carscr[CHASSIS], engscr[ENGINES],
  59.      carpts[DRIVERS], engpts[DRIVERS]; /* Scores */
  60.  
  61. int  drcar[DRIVERS], dreng[DRIVERS], whichcar[DRIVERS], whicheng[DRIVERS]; 
  62.                                    /* chassis/engine for each driver */
  63.  
  64. int  teamscores[MAXTEAM][16], driverscore[DRIVERS][16], 
  65.      drivertotal[DRIVERS];
  66.  
  67. int  points[] = { 0, 10, 6, 4, 3, 2, 1 }; /* Points for pos' 1-6 */
  68.   
  69. int  last, nteams, ndrivers, i, j, k, pos, point, normal, teams, drive, 
  70.      number, totwarm, exists_flag, racedrivers, old_grid, old_car, old_eng,
  71.      maxdrivers, maxchassis, maxengines, nraces;
  72.  
  73. char state, nom; /* variables used to work out flags */
  74. int  end, warm;
  75.  
  76. int  inlen = 80; /* Max input length */
  77.  
  78. void disperr(char *);
  79. void errorinfile(char *, char *, int);
  80. int driver2no(char *);
  81. int chassis2no(char *);
  82. int engine2no(char *);
  83. int strcasencmp(char *, char *, int);
  84. void capitalise(char *);
  85. unsigned int readline(char *, int, FILE *);
  86.   
  87. main(int argc, char *argv[])
  88. { 
  89.   if(argc < 2 || argc > 5)
  90.   { 
  91.     /* Incorrect command line, display message and quit */
  92.     fputs(verst, stderr);
  93.     fputs(errst, stderr);
  94.     exit(0);
  95.   }
  96.   else
  97.   {   
  98.     /* clear output flags */
  99.     normal = 255;
  100.     teams = 255;
  101.     drive = 255;
  102.     strcpy(data_name, "no_name");
  103.     
  104.     for(i = 1; i < argc; i+=1)
  105.     {
  106.       if(!strcasencmp(argv[i], "-r", 2))
  107.       { 
  108.         if(normal == 255)
  109.         {
  110.           /* Normal output wanted */
  111.           strncpy(argv[i], "00", 2);
  112.           normal = atoi(argv[i]);
  113.         }
  114.         else
  115.         {
  116.           /* Incorrect command line, display message and quit */
  117.           fputs(verst, stderr);
  118.           fputs(errst, stderr);
  119.           exit(0);
  120.         }
  121.       }
  122.       else if(!strcasencmp(argv[i], "-t", 2))
  123.       {
  124.         if(teams == 255)
  125.         {
  126.           /* Teams output wanted */
  127.           strncpy(argv[i], "00", 2);
  128.           teams = atoi(argv[i]);
  129.         }
  130.         else
  131.         {
  132.           /* Incorrect command line, display message and quit */
  133.           fputs(verst, stderr);
  134.           fputs(errst, stderr);
  135.           exit(0);
  136.         }
  137.       }
  138.       else if(!strcasencmp(argv[i], "-d", 2))
  139.       {
  140.         if(drive == 255)
  141.         {
  142.           /* Driver output wanted */
  143.           strncpy(argv[i], "00", 2);
  144.           drive = atoi(argv[i]);
  145.         }
  146.         else
  147.         {
  148.           /* Incorrect command line, display message and quit */
  149.           fputs(verst, stderr);
  150.           fputs(errst, stderr);
  151.           exit(0);
  152.         }
  153.       }
  154.       else
  155.       {
  156.         if(!strcmp(data_name, "no_name"))
  157.         {
  158.           /* Set data filename */
  159.           strcpy(data_name, argv[i]);
  160.         }
  161.         else
  162.         {
  163.           /* Incorrect command line, display message and quit */
  164.           fputs(verst, stderr);
  165.           fputs(errst, stderr);
  166.           exit(0);
  167.         }
  168.       }
  169.     }  
  170.   }
  171.  
  172.   /* Clear arrays */
  173.   for(i = 1; i < DRIVERS; i+=1)
  174.   {
  175.     grid[i] = 0;
  176.     position[i] = 0;
  177.     status[i] = 0;
  178.     drcar[i] = 0;
  179.     dreng[i] = 0;
  180.     warmup[i] = 0;
  181.     topsixpts[i] = 0;
  182.     awardpts[i] = 0;
  183.     incgridpts[i] = 0;
  184.     warmuppts[i] = 0;
  185.     retirepts[i] = 0;
  186.     noqualpts[i] = 0;
  187.     carpts[i] = 0;
  188.     engpts[i] = 0;
  189.     racesc[i] = 0;
  190.   }
  191.       
  192.   for(i = 0; i <= CHASSIS; i+=1)
  193.   {
  194.     carscr[i] = 0;
  195.   }
  196.       
  197.   for(i = 0; i <= ENGINES; i+=1)
  198.   {
  199.     engscr[i] = 0;
  200.   }
  201.  
  202.   for(i = 0; i <= MAXTEAM; i+=1)
  203.   {
  204.     scores[i] = 0;
  205.   }
  206.  
  207.   /* Read in chassis names */
  208.   chassis_file = fopen(chassis_name, "r");
  209.   if(chassis_file == 0)
  210.   {
  211.     disperr(chassis_name);
  212.     exit(0);
  213.   }
  214.   
  215.   i=1;
  216.   readline(store, inlen, chassis_file);
  217.   while(i <= CHASSIS && !feof(chassis_file))
  218.   {
  219.     strcpy(chassisa[i], store);
  220.     readline(store, inlen, chassis_file);
  221.     i+=1;
  222.   }
  223.   maxchassis = i-1;
  224.   
  225.   /* Read in engines names */
  226.   engine_file = fopen(engine_name, "r");
  227.   if(engine_file == 0)
  228.   {
  229.     disperr(engine_name);
  230.     exit(0);
  231.   }
  232.   
  233.   i=1;
  234.   readline(store, inlen, engine_file);
  235.   while(i <= ENGINES && !feof(engine_file))
  236.   {
  237.     strcpy(enginesa[i], store);
  238.     readline(store, inlen, engine_file);
  239.     i+=1;
  240.   }
  241.   maxengines = i-1;
  242.  
  243.   fclose(engine_file);
  244.  
  245.   /* Read in driver details */
  246.   drivers_file = fopen(drivers_name, "r");
  247.   if(drivers_file == 0)
  248.   {
  249.     disperr(drivers_name);
  250.     exit(0);
  251.   }
  252.   
  253.   i=1;
  254.   readline(store, inlen, drivers_file);
  255.   while(i <= DRIVERS && !feof(drivers_file))
  256.   {
  257.     strcpy(namea[i], store);
  258.     readline(store, inlen, drivers_file);
  259.     strcpy(fnama[i], store);
  260.     readline(store, inlen, drivers_file);
  261.     whichcar[i] = chassis2no(store);
  262.     readline(store, inlen, drivers_file);
  263.     whicheng[i] = engine2no(store);
  264.     readline(store, inlen, drivers_file);
  265.     i+=1;
  266.   }
  267.   maxdrivers = i-1;
  268.   
  269.   fclose(drivers_file);
  270.  
  271.   if(strcmp(data_name, "no_name") != 0)
  272.   {
  273.     /* Get details from data file */
  274.     data_file = fopen(data_name, "r");
  275.     if(data_file == 0)
  276.     {
  277.       /* file named on command line does not exist */
  278.       /* try old style files */
  279.       /* Produce names of three input files */
  280.       strcpy(grid_name, data_name);
  281.       strcat(grid_name, ".grid");
  282.       strcpy(results_name, data_name);
  283.       strcat(results_name, ".rslt");
  284.       strcpy(other_name, data_name);
  285.       strcat(other_name, ".xtra");
  286.  
  287.       /* Use root name of file as race name */
  288.       strcpy(racename, data_name);
  289.  
  290.       /* open and parse starting grid file */
  291.       grid_file = fopen(grid_name, "r");
  292.       if(grid_file == 0)
  293.       {
  294.         disperr(grid_name);
  295.         exit(0);
  296.       }
  297.  
  298.       readline(store, inlen, grid_file);
  299.       ndrivers = atoi(store);
  300.  
  301.       for(i = 1; i < ndrivers+1; i+=1)
  302.       {
  303.         readline(store, inlen, grid_file);
  304.         grid[i] = driver2no(store);
  305.         if(grid[i] == 0)
  306.         {
  307.           errorinfile(grid_name, "Unknown driver", i+1);
  308.           exit(0);
  309.         }
  310.         drcar[i] = whichcar[grid[i]];
  311.         dreng[i] = whicheng[grid[i]];
  312.       }
  313.  
  314.       fclose(grid_file);
  315.     
  316.       /* open and parse other details file */
  317.       other_file = fopen(other_name, "r");
  318.       if(other_file == 0)
  319.       {
  320.         disperr(other_name);
  321.         exit(0);
  322.       }
  323.  
  324.       for(i = 1; i < 7; i+=1)
  325.       {
  326.         readline(store, inlen, other_file);
  327.         number = driver2no(store);
  328.         if(number == 0)
  329.         {
  330.           errorinfile(other_name, "Unknown driver", i);
  331.           exit(0);
  332.         }
  333.         j = 0;
  334.         do
  335.         {
  336.           j+=1;
  337.         }
  338.         while(grid[j] != number);
  339.         warmup[j] = i;
  340.       }
  341.       readline(store, inlen, other_file);
  342.       nominated = driver2no(store);
  343.       if(nominated > maxdrivers)
  344.       {
  345.         errorinfile(other_name, "Illegal nominated driver", 7);
  346.         exit(0);
  347.       }
  348.       readline(store, inlen, other_file);
  349.       finisher = atoi(store);
  350.       if(finisher > ndrivers)
  351.       {
  352.         errorinfile(other_name, "Illegal final classified driver", 8);
  353.         exit(0);
  354.       }
  355.       readline(store, inlen, other_file);
  356.       qualifier = atoi(store);
  357.       if(qualifier > ndrivers)
  358.       {
  359.         errorinfile(other_name, "Illegal last qualified driver", 9);
  360.         exit(0);
  361.       }
  362.       if(qualifier < finisher)
  363.       {
  364.         errorinfile(other_name, "Final classified/last qualified driver mismatch", 8);
  365.         exit(0);
  366.       }
  367.       totwarm = 6;
  368.   
  369.       fclose(other_file);
  370.  
  371.       /* open and parse final results file */
  372.       results_file = fopen(results_name, "r");
  373.       if(results_file == 0)
  374.       {
  375.         disperr(results_name);
  376.         exit(0);
  377.       }
  378.  
  379.       for(i = 1; i < qualifier+1; i+=1)
  380.       {
  381.         readline(store, inlen, results_file);
  382.         number = driver2no(store);
  383.         if(number == 0)
  384.         {
  385.           errorinfile(results_name, "Unknown driver", i);
  386.           exit(0);
  387.         }
  388.         j = 0;
  389.         do
  390.         {
  391.           j+=1;
  392.         }
  393.         while(grid[j] != number);
  394.         position[j] = i;
  395.       }
  396.  
  397.       fclose(results_file);
  398.   
  399.       for(i = 1; i < ndrivers+1; i+=1)
  400.       {
  401.         if(position[i] <= finisher)
  402.           status[i] = 1;
  403.         if(position[i] > finisher && position[i] <= qualifier)
  404.           status[i] = 2;
  405.         if(position[i] == 0)
  406.           status[i] = 3;
  407.       }
  408.     }
  409.     else
  410.     {
  411.       /* read in name of race */
  412.       readline(racename, inlen, data_file);
  413.  
  414.       i = 0;
  415.       totwarm = 0;
  416.       nominated = 0;
  417.       readline(store, inlen, data_file);
  418.  
  419.       do
  420.       {
  421.         i+=1;
  422.         grid[i] = driver2no(store);
  423.         if(grid[i] == 0)
  424.         {
  425.           errorinfile(data_name, "Unknown driver", i*2);
  426.           exit(0);
  427.         }
  428.         drcar[i] = whichcar[grid[i]];
  429.         dreng[i] = whicheng[grid[i]];
  430.       
  431.         /* Check finished/retired/DNQ/dis-qualified flag */
  432.         readline(store, inlen, data_file);
  433.         sscanf(store, "%c %d %d %c", &state, &end, &warm, &nom);
  434.        
  435.         state = tolower(state);
  436.         status[i] = 4;
  437.         if(state == 'd')
  438.           status[i] = 0;
  439.         if(state == 'f')
  440.           status[i] = 1;
  441.         if(state == 'r')
  442.           status[i] = 2;
  443.         if(state == 'n')
  444.           status[i] = 3;
  445.         if(status[i] == 4)
  446.         {
  447.           errorinfile(data_name, "Flag not one of FRDN", 1+2*i);
  448.           exit(0);
  449.         }
  450.     
  451.         /* Get final position */
  452.         if(end < 0 || end > 26)
  453.         {
  454.           errorinfile(data_name, "Illegal finishing position", 1+2*i);
  455.           exit(0);
  456.         }
  457.         position[i] = end;
  458.     
  459.         /* Warmup positions */
  460.         if(warm < 0 || warm > 26)
  461.         {
  462.           errorinfile(data_name, "Illegal warmup position", 1+2*i);
  463.           exit(0);
  464.         }
  465.         warmup[i] = warm;
  466.         if(warm != 0 && status[i] != 0)
  467.           totwarm+=1;
  468.       
  469.         if(nom != '-' && nom != '+')
  470.         {
  471.           errorinfile(data_name, "Nominated flag not - or +", 1+2*i);
  472.           exit(0);
  473.         }
  474.       
  475.         if(nom != '-')
  476.           if(nom == '+' && nominated == 0)
  477.             nominated = grid[i];
  478.           else
  479.           {
  480.             errorinfile(data_name, "Too many nominated drivers", 1+2*i);
  481.             exit(0);
  482.           }
  483.         
  484.         readline(store, inlen, data_file);
  485.       
  486.       }
  487.       while(!feof(data_file));
  488.   
  489.       ndrivers = i;
  490.       fclose(data_file);
  491.     }
  492.   
  493.     /* Check for correct number of warmup positions */
  494.     if(totwarm < 6)
  495.     {
  496.       errorinfile(data_name, "Not enough warmup positions", 0);
  497.       exit(0);
  498.     }
  499.  
  500.     /* clear scores */
  501.     for(i = 0; i < DRIVERS; i+=1)
  502.     {
  503.       topsixpts[i] = 0;
  504.       awardpts[i] = 0;
  505.       incgridpts[i] = 0;
  506.       warmuppts[i] = 0;
  507.       retirepts[i] = 0;
  508.       noqualpts[i] = 0;
  509.       racesc[i] = 0;
  510.     }
  511.   
  512.     /* points for finishing in top six */
  513.     k = 1;
  514.     pos = 1;
  515.     point = 1;
  516.     do
  517.     {
  518.       while(position[k] != point)
  519.         k = k + 1;
  520.       if(status[k] == 1)
  521.       {
  522.         topsixpts[grid[k]] = 10 + points[pos];
  523.         pos+=1;
  524.       }
  525.       point+=1;
  526.       k = 1;
  527.     }
  528.     while(pos < 7 && point <= ndrivers);
  529.  
  530.     /* points for increasing on grid position */
  531.     for(i = 1; i < ndrivers+1; i+=1) /* look through grid... */
  532.       if(status[i] == 1)             /* ...for drivers who finish... */
  533.         if(position[i] < i)          /* ...and beat their grid position */
  534.           incgridpts[grid[i]] = (i-position[i]);
  535.  
  536.     /* adjust grid position increase due to disqualifications */
  537.     for(i = 1; i < ndrivers+1; i+=1)    /* check all drivers for... */
  538.       if(status[i] == 0)                /* ...disqualification and... */
  539.         for(j = 1; j <ndrivers+1; j+=1) /* ...adjust the scores of... */
  540.           if(position[j] > position[i] && status[j] == 1 && position[j] <= j)
  541.             incgridpts[grid[j]]+=1;     /* ...those who finish after them */
  542.   
  543.     /* nominated driver points */
  544.     awardpts[nominated] = 5;
  545.  
  546.     /* points for first 6 places in Sunday warmup */
  547.     pos = 1;
  548.     point = 1;
  549.     i = 1;
  550.     do
  551.     {
  552.       while(warmup[i] != point) 
  553.         i+=1; /* if a driver came at position 'point' in the warmup */
  554.       if(status[i] == 1 || status[i] == 2) /* and was not disqualified */
  555.       {
  556.         warmuppts[grid[i]] = 7 - pos;
  557.         pos+=1;
  558.       }
  559.       point+=1;
  560.       i = 1;
  561.     }
  562.     while(pos < 7 && point <= ndrivers);
  563.  
  564.     /* find position of last driver (usually 26) */
  565.     last = 0;
  566.     for(i = 1; i < ndrivers+1; i+=1)
  567.       if(status[i] == 2)       /* if a driver retired */
  568.         if(position[i] > last) /* and has the highest position number */
  569.           last = position[i];  /* then he was in last place */
  570.   
  571.     /* points for first 5 to retire */
  572.     for(i = 1; i < ndrivers+1; i+=1)
  573.     {
  574.       if(status[i] == 2)
  575.       {
  576.         if(position[i] == last)
  577.           retirepts[grid[i]] = 5;
  578.         if(position[i] == last-1)
  579.           retirepts[grid[i]] = 4;
  580.         if(position[i] == last-2)
  581.           retirepts[grid[i]] = 3;
  582.         if(position[i] == last-3)
  583.           retirepts[grid[i]] = 2;
  584.         if(position[i] == last-4)
  585.           retirepts[grid[i]] = 1;
  586.       }
  587.     }
  588.  
  589.     /* points for non-qualification */
  590.     for(i = 1; i < ndrivers+1; i+=1)
  591.       if(status[i] == 3)
  592.         noqualpts[grid[i]] = 5;
  593.       
  594.     /* move non-qualifiers to end of results */
  595.     pos = last+1;
  596.     for(i = 1; i < ndrivers+1; i+=1)
  597.     {
  598.       if(status[i] == 3)
  599.       {
  600.         position[i] = pos;
  601.         pos+=1;
  602.       }
  603.     }
  604.   
  605.     /* reset chassis/engine flags/scores */
  606.     for(i = 0; i < ENGINES; i+=1)
  607.     {
  608.       eflags[i] = 0;  
  609.       engscr[i] = 0;
  610.     }
  611.  
  612.     for(i = 0; i < CHASSIS; i+=1)
  613.     {
  614.       cflags[i] = 0;
  615.       carscr[i] = 0;  
  616.     }
  617.   
  618.     for(i = 0; i < DRIVERS; i+=1)
  619.     {
  620.       carpts[i] = 0;
  621.       engpts[i] = 0;
  622.     }
  623.   
  624.     pos = 1;
  625.     point = 1;
  626.     i = 1;
  627.     do
  628.     {
  629.       while(position[i] != point)
  630.         i+=1; /* find driver who finished in position 'point' */
  631.       if(cflags[drcar[i]] == 0 && status[i] == 1)
  632.       {
  633.         /* if car hasn't already scored and driver did finish award points */
  634.      /* carpts[i] = points[pos]*2; */          /* Version 1 rules */
  635.         carpts[i] = points[pos]+10;            /* Version 2 rules */
  636.      /* carscr[drcar[i]] += points[pos]*2; */  /* Version 1 rules */
  637.         carscr[drcar[i]] += points[pos]+10;    /* Version 2 rules */
  638.         cflags[drcar[i]] = 1;
  639.         pos+=1;
  640.       }
  641.     point+=1;
  642.       i = 1;
  643.     }
  644.     while( pos < 7 && point <= ndrivers);
  645.  
  646.     pos = 1;
  647.     point = 1;
  648.     i = 1;
  649.     do
  650.     {
  651.       while(position[i] != point)
  652.         i+=1;
  653.       if(eflags[dreng[i]] == 0 && status[i] == 1)
  654.       {
  655.      /* engpts[i] = points[pos]*2; */          /* Version 1 rules */
  656.         engpts[i] = points[pos]+10;            /* Version 2 rules */
  657.      /* engscr[dreng[i]] += points[pos]*2; */  /* Version 1 rules */
  658.         engscr[dreng[i]] += points[pos]+10;    /* Version 2 rules */
  659.         eflags[dreng[i]] = 1;
  660.         pos+=1;
  661.       }
  662.       point+=1;
  663.       i = 1;
  664.     }
  665.     while( pos < 7 && point <= ndrivers);
  666.  
  667.     /* reset chassis flags */
  668.     for(i = 0; i < CHASSIS; i+=1)
  669.     {  
  670.       cflags[i] = 0;
  671.     }
  672.  
  673.     pos = last;
  674.     point = last;
  675.     i = 1;
  676.     do
  677.     {
  678.       while(position[i] != point)
  679.         i+=1;
  680.       if(cflags[drcar[i]] == 0 && status[i] == 2)
  681.       {
  682.         carpts[i] = -(pos-(last-5));
  683.         carscr[drcar[i]] -= (pos-(last-5));
  684.         cflags[drcar[i]] = 1;
  685.         pos-=1;
  686.       }
  687.       point-=1;
  688.       i = 1;
  689.     }
  690.     while(pos > last-5 && point > 0);
  691.  
  692.     scores_file = fopen(scores_name, "r");
  693.     if(scores_file == 0)
  694.     {
  695.       /* If the scores file doesn't exists, create it */
  696.       scores_file = fopen(scores_name, "w");
  697.       exists_flag = 0;
  698.     } 
  699.     else 
  700.     {
  701.       /* if it does exists, open a temporary file to move the scores to */
  702.       fclose(scores_file);
  703.       scores_file = fopen(temp_name, "w");
  704.       exists_flag = 1;
  705.       old_scores = fopen(scores_name, "r");
  706.     
  707.       /* get the original scores and move them to the temp file until we
  708.          find a race with the same name or the end of the file */
  709.       readline(racecheck, inlen, old_scores);
  710.     
  711.       while(strcasencmp(racecheck, racename, 6) && !feof(old_scores))
  712.       {
  713.         readline(store, inlen, old_scores);
  714.         racedrivers = atoi(store);
  715.         fprintf(scores_file, "%s\n", racecheck);
  716.         fprintf(scores_file, "%d\n", racedrivers);
  717.         for(i = 1; i <= racedrivers; i+=1)
  718.         {
  719.           fgets(store, inlen, old_scores);
  720.           fputs(store, scores_file);
  721.         }
  722.         readline(racecheck, inlen, old_scores);
  723.       }
  724.     
  725.       if(!feof(old_scores))
  726.       {
  727.         /* If we haven't reached the end-of-file compare the old results
  728.            with the new results */
  729.         readline(store, inlen, old_scores);
  730.         racedrivers = atoi(store);
  731.         for(i = 1; i <= racedrivers; i+=1)
  732.         {
  733.           fscanf(old_scores, "%d %d %d", &old_grid, &old_car, &old_eng);
  734.           readline(store, inlen, old_scores);
  735.           if(old_car != whichcar[old_grid])
  736.           {
  737.             /* a driver had a different car before - send a non-fatal
  738.                message explaining this */
  739.             printf("** %s's car has changed from %s to %s.\n", 
  740.               namea[old_grid], chassisa[old_car], 
  741.               chassisa[whichcar[old_grid]]);
  742.           }
  743.           if(old_eng != whicheng[old_grid])
  744.           {
  745.             printf("** %s's engine has changed from %s to %s.\n", 
  746.               namea[old_grid], enginesa[old_eng], 
  747.               enginesa[whicheng[old_grid]]);
  748.           }
  749.         }
  750.       }
  751.     }
  752.   
  753.     /* put the new scores in the correct file */
  754.     fprintf(scores_file, "%s\n", racename);
  755.     fprintf(scores_file, "%d\n", ndrivers);
  756.     for(i = 1; i <= ndrivers; i+=1)
  757.     {
  758.       fprintf(scores_file, "%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d\n",
  759.         grid[i], drcar[i], dreng[i], position[i], status[i], 
  760.         topsixpts[grid[i]], awardpts[grid[i]], incgridpts[grid[i]],
  761.         warmuppts[grid[i]], retirepts[grid[i]], noqualpts[grid[i]],
  762.         carpts[i], carscr[drcar[i]], engpts[i], engscr[dreng[i]]);
  763.     }
  764.  
  765.     if(exists_flag == 1)
  766.     {
  767.       readline(racecheck, inlen, old_scores);
  768.       while(!feof(old_scores))
  769.       {
  770.         fprintf(scores_file, "%s\n", racecheck);
  771.         readline(store, inlen, old_scores);
  772.         racedrivers = atoi(store);
  773.         fprintf(scores_file, "%d\n", racedrivers);
  774.         for(i = 1; i <= racedrivers; i+=1)
  775.         {
  776.           fgets(store, inlen, old_scores);
  777.           fputs(store, scores_file);
  778.         }
  779.         readline(racecheck, inlen, old_scores);
  780.       }
  781.       fclose(old_scores);
  782.       if(unlink(scores_name) == -1)
  783.       {
  784.         fputs("Unable to delete \"scores.fgp2\".\n", stderr);
  785.         exit(0);
  786.       }
  787.     }
  788.   
  789.     fclose(scores_file);
  790.   
  791.     if(exists_flag == 1)
  792.       if(rename(temp_name, scores_name) == -1)
  793.       {
  794.         fputs("Unable to rename \"_tempscores\".\n", stderr);
  795.         exit(0);
  796.       }
  797.   }
  798.     
  799.   /* Open teams.fgp2 */
  800.   teams_file = fopen(teams_name, "r");
  801.  
  802.   /* Get the number of teams competing */
  803.   readline(store, inlen, teams_file);
  804.   nteams = atoi(store);
  805.  
  806.   for(i = 1; i < nteams + 1; i+=1)
  807.   {
  808.     readline(store, inlen, teams_file); 
  809.     strcpy(owner[i], store);
  810.     readline(store, inlen, teams_file);
  811.     strcpy(teamname[i], store);
  812.     readline(store, inlen, teams_file);
  813.     driver1[i] = driver2no(store);
  814.     readline(store, inlen, teams_file);
  815.     driver2[i] = driver2no(store);
  816.     readline(store, inlen, teams_file);
  817.     driver3[i] = driver2no(store);
  818.     readline(store, inlen, teams_file);
  819.     chassis[i] = chassis2no(store);
  820.     readline(store, inlen, teams_file);
  821.     engine[i] = engine2no(store);
  822.   }
  823.  
  824.   fclose(teams_file);
  825.  
  826.   if(normal != 255)
  827.   {
  828.     j = 0;
  829.     if(normal == 0)
  830.       normal = 255;
  831.     
  832.     scores_file = fopen(scores_name, "r");
  833.     if(scores_file == 0)
  834.     {
  835.       disperr(scores_name);
  836.       exit(0);
  837.     }
  838.     
  839.     for(i = 0; i <= MAXTEAM; i+=1)
  840.     {
  841.       scores[i] = 0;
  842.     }
  843.  
  844.     readline(store, inlen, scores_file);
  845.     while(j != normal && !feof(scores_file))
  846.     {
  847.       /* Clear arrays */
  848.       for(i = 1; i < DRIVERS; i+=1)
  849.       {
  850.         grid[i] = 0;
  851.         position[i] = 0;
  852.         status[i] = 0;
  853.         drcar[i] = 0;
  854.         dreng[i] = 0;
  855.         warmup[i] = 0;
  856.         topsixpts[i] = 0;
  857.         awardpts[i] = 0;
  858.         incgridpts[i] = 0;
  859.         warmuppts[i] = 0;
  860.         retirepts[i] = 0;
  861.         noqualpts[i] = 0;
  862.         carpts[i] = 0;
  863.         engpts[i] = 0;
  864.       }
  865.       
  866.       for(i = 0; i <= CHASSIS; i+=1)
  867.       {
  868.         carscr[i] = 0;
  869.       }
  870.       
  871.       for(i = 0; i <= ENGINES; i+=1)
  872.       {
  873.         engscr[i] = 0;
  874.       }
  875.       
  876.       strcpy(racename, store);
  877.       readline(store, inlen, scores_file);
  878.       ndrivers = atoi(store);
  879.       
  880.       for(i = 1; i <= ndrivers; i+=1)
  881.       {
  882.         fscanf(scores_file, "%d %d %d", &grid[i], &drcar[i], &dreng[i]);
  883.         fscanf(scores_file, " %d %d %d %d %d %d %d %d %d %d %d %d",
  884.           &position[i], &status[i], &topsixpts[grid[i]], 
  885.           &awardpts[grid[i]], &incgridpts[grid[i]], &warmuppts[grid[i]], 
  886.           &retirepts[grid[i]], &noqualpts[grid[i]], &carpts[i], 
  887.           &carscr[drcar[i]], &engpts[i], &engscr[dreng[i]]);
  888.         readline(store, inlen, scores_file);
  889.       }
  890.  
  891.       /* total up scores */
  892.       for(k = 0; k < DRIVERS; k+=1)
  893.         racesc[k]=topsixpts[k]+awardpts[k]+incgridpts[k]+warmuppts[k]-
  894.           retirepts[k]-noqualpts[k];
  895.  
  896.       /* Calculate teams' scores */
  897.       for(k = 1; k <= nteams; k+=1)
  898.       {
  899.         thisrce[k]=(racesc[driver1[k]]+racesc[driver2[k]]+
  900.           racesc[driver3[k]]+carscr[chassis[k]]+engscr[engine[k]]);
  901.         scores[k]+=thisrce[k];
  902.       }
  903.       
  904.       j+=1;
  905.       readline(store, inlen, scores_file);
  906.     }
  907.     
  908.     fclose(scores_file);
  909.  
  910.     printf("%s\n", verst);
  911.     capitalise(racename);
  912.     printf("%s Starting Grid\n\n", racename);
  913.     for(i = 1; i < ndrivers+1; i+=1) 
  914.     {
  915.       if(status[i] != 3)
  916.       {
  917.         sprintf(fullname, "%s %s", fnama[grid[i]], namea[grid[i]]);
  918.         printf("%2d : %-30s", i, fullname);
  919.         printf(" %s-", chassisa[drcar[i]]);
  920.         printf("%s\n", enginesa[dreng[i]]);
  921.       } 
  922.     }
  923.     printf("\n%s Results\n\n", racename);
  924.     printf("    NAME      POINTS BREAKDOWN       CHASSIS    POINTS ENGINE");
  925.     printf("        POINTS\n");
  926.     printf("                      Top Six\n");
  927.     printf("                      |  Award                Driver's          ");
  928.     printf("   Driver's\n");
  929.     printf("                      |  | Grid Increase       Chassis          ");
  930.     printf("     Engine\n");
  931.     printf("                      |  | |  Warm-up               |           ");
  932.     printf("         |\n");
  933.     printf("                      |  | |  | Retirement          |           ");
  934.     printf("         |\n");
  935.     printf("                      |  | |  | | Non-qualification |           ");
  936.     printf("         |\n");
  937.     printf("                      |  | |  | | |                 |           ");
  938.     printf("         |\n");
  939.  
  940.     pos = 1;
  941.     j = 1;
  942.     do
  943.     {
  944.       while(position[j] != pos)
  945.         j+=1;
  946.       if(status[j] == 0)
  947.         strcpy(code, "DIS");
  948.       if(status[j] == 1)
  949.         sprintf(code, "%-3d", pos);
  950.       if(status[j] == 2)
  951.         strcpy(code, "rtd");
  952.       if(status[j] == 3)
  953.         strcpy(code, "DNQ");
  954.          
  955.       printf("%s %-13s %2d (%02d+%1d+%02d+%1d-%1d-%1d) ", code, namea[grid[j]],
  956.         racesc[grid[j]], topsixpts[grid[j]], awardpts[grid[j]], 
  957.         incgridpts[grid[j]], warmuppts[grid[j]], retirepts[grid[j]],
  958.         noqualpts[grid[j]]);
  959.       printf("%-9s %2d [%2d]", 
  960.         chassisa[drcar[j]], carscr[drcar[j]], carpts[j]);
  961.       printf(" %-12s %2d [%2d]\n", 
  962.         enginesa[dreng[j]], engscr[dreng[j]], engpts[j]);
  963.       pos+=1;
  964.       j = 1;
  965.     }
  966.     while(pos < ndrivers+1); 
  967.  
  968.     for(i = 1; i < MAXTEAM; i+=1)
  969.       sflags[i] = 0;
  970.  
  971.     printf("\n%s Team Scores\n\n", racename);
  972.  
  973.     for(i = 1; i < nteams+1; i+=1)
  974.     {
  975.       highest = 0;
  976.       highscore = -500;
  977.       for(j = 1; j < nteams+1; j+=1)
  978.         if(sflags[j] == 0)
  979.           if(scores[j] > highscore)
  980.           {
  981.             highscore = scores[j];
  982.             highest = j;
  983.           }
  984.       sflags[highest] = 1;
  985.       /* getteam(highest); */
  986.       printf("Team Owner   : %s\nTeam Name    : %s\n", owner[highest],
  987.         teamname[highest]);
  988.       printf("Series Score : %3d\n", scores[highest]); 
  989.       printf("Race Score   : %3d\n", thisrce[highest]);
  990.       printf("Race Details : Driver one    - %-13s = %2d\n", namea[driver1[highest]], 
  991.         racesc[driver1[highest]]);
  992.       printf("               Driver two    - %-13s = %2d\n", namea[driver2[highest]], 
  993.         racesc[driver2[highest]]);
  994.       printf("               Test Driver   - %-13s = %2d\n", namea[driver3[highest]], 
  995.         racesc[driver3[highest]]);
  996.       printf("               Car's Chassis - %-13s = %2d\n", 
  997.         chassisa[chassis[highest]], carscr[chassis[highest]]);
  998.       printf("               Car's Engine  - %-13s = %2d\n\n", 
  999.         enginesa[engine[highest]], engscr[engine[highest]]);
  1000.     }
  1001.   }
  1002.  
  1003.   if(teams != 255)
  1004.   {
  1005.     j = 0;
  1006.     if(teams == 0)
  1007.       teams = 255;
  1008.     
  1009.     scores_file = fopen(scores_name, "r");
  1010.     if(scores_file == 0)
  1011.     {
  1012.       disperr(scores_name);
  1013.       exit(0);
  1014.     }
  1015.     
  1016.     for(i = 0; i <= MAXTEAM; i+=1)
  1017.     {
  1018.       scores[i] = 0;
  1019.     }
  1020.  
  1021.     readline(store, inlen, scores_file);
  1022.     while(j != teams && !feof(scores_file))
  1023.     {
  1024.       /* Clear arrays */
  1025.       for(i = 1; i < DRIVERS; i+=1)
  1026.       {
  1027.         grid[i] = 0;
  1028.         position[i] = 0;
  1029.         status[i] = 0;
  1030.         drcar[i] = 0;
  1031.         dreng[i] = 0;
  1032.         warmup[i] = 0;
  1033.         topsixpts[i] = 0;
  1034.         awardpts[i] = 0;
  1035.         incgridpts[i] = 0;
  1036.         warmuppts[i] = 0;
  1037.         retirepts[i] = 0;
  1038.         noqualpts[i] = 0;
  1039.         carpts[i] = 0;
  1040.         engpts[i] = 0;
  1041.         racesc[i] = 0;
  1042.       }
  1043.       
  1044.       for(i = 0; i <= CHASSIS; i+=1)
  1045.       {
  1046.         carscr[i] = 0;
  1047.       }
  1048.       
  1049.       for(i = 0; i <= ENGINES; i+=1)
  1050.       {
  1051.         engscr[i] = 0;
  1052.       }
  1053.       
  1054.       capitalise(store);
  1055.       strcpy(racenames[j], store);
  1056.       readline(store, inlen, scores_file);
  1057.       ndrivers = atoi(store);
  1058.       
  1059.       for(i = 1; i <= ndrivers; i+=1)
  1060.       {
  1061.         fscanf(scores_file, "%d %d %d", &grid[i], &drcar[i], &dreng[i]);
  1062.         fscanf(scores_file, " %d %d %d %d %d %d %d %d %d %d %d %d",
  1063.           &position[i], &status[i], &topsixpts[grid[i]], 
  1064.           &awardpts[grid[i]], &incgridpts[grid[i]], &warmuppts[grid[i]], 
  1065.           &retirepts[grid[i]], &noqualpts[grid[i]], &carpts[i], 
  1066.           &carscr[drcar[i]], &engpts[i], &engscr[dreng[i]]);
  1067.         readline(store, inlen, scores_file);
  1068.       }
  1069.  
  1070.       /* total up scores */
  1071.       for(k = 0; k < DRIVERS; k+=1)
  1072.         racesc[k]=topsixpts[k]+awardpts[k]+incgridpts[k]+warmuppts[k]-
  1073.           retirepts[k]-noqualpts[k];
  1074.  
  1075.       /* Calculate teams' scores */
  1076.       for(k = 1; k <= nteams; k+=1)
  1077.       {
  1078.         teamscores[k][j]=(racesc[driver1[k]]+racesc[driver2[k]]+
  1079.           racesc[driver3[k]]+carscr[chassis[k]]+engscr[engine[k]]);
  1080.         scores[k]+=teamscores[k][j];
  1081.       }
  1082.       
  1083.       j+=1;
  1084.       readline(store, inlen, scores_file);
  1085.     }
  1086.     nraces = j-1;
  1087.     
  1088.     fclose(scores_file);
  1089.  
  1090.     printf("%s\n", verst);
  1091.     printf("Team scores table\n");
  1092.     
  1093.     for(i = 0; i <= nraces; i+=1)
  1094.     {
  1095.       printf("                        ");
  1096.       if(i > 0)
  1097.         for(j = 0; j < i; j+=1)
  1098.           printf(" |  ");
  1099.       printf("%s\n", racenames[i]);
  1100.     }
  1101.     
  1102.     printf("+----------------------+");
  1103.     for(i = 0; i <= nraces; i+=1)
  1104.       printf("---+");
  1105.     printf("-----+\n");
  1106.     
  1107.     for(i = 1; i <= nteams; i+=1)
  1108.     {
  1109.       printf("| %-20s |", teamname[i]);
  1110.       for(j = 0; j <= nraces; j+=1)
  1111.         printf("%3d|", teamscores[i][j]);
  1112.       printf("%5d|\n", scores[i]);
  1113.     
  1114.       printf("+----------------------+");
  1115.       for(k = 0; k <= nraces; k+=1)
  1116.         printf("---+");
  1117.       printf("-----+\n");
  1118.     }
  1119.     printf("\n");
  1120.   }
  1121.  
  1122.   if(drive != 255)
  1123.   {
  1124.     j = 0;
  1125.     if(drive == 0)
  1126.       drive = 255;
  1127.     
  1128.     scores_file = fopen(scores_name, "r");
  1129.     if(scores_file == 0)
  1130.     {
  1131.       disperr(scores_name);
  1132.       exit(0);
  1133.     }
  1134.  
  1135.     for(i = 0; i <= MAXTEAM; i+=1)
  1136.     {
  1137.       scores[i] = 0;
  1138.     }
  1139.     
  1140.     readline(store, inlen, scores_file);
  1141.     while(j != drive && !feof(scores_file))
  1142.     {
  1143.       /* Clear arrays */
  1144.       for(i = 1; i < DRIVERS; i+=1)
  1145.       {
  1146.         grid[i] = 0;
  1147.         position[i] = 0;
  1148.         status[i] = 0;
  1149.         drcar[i] = 0;
  1150.         dreng[i] = 0;
  1151.         warmup[i] = 0;
  1152.         topsixpts[i] = 0;
  1153.         awardpts[i] = 0;
  1154.         incgridpts[i] = 0;
  1155.         warmuppts[i] = 0;
  1156.         retirepts[i] = 0;
  1157.         noqualpts[i] = 0;
  1158.         carpts[i] = 0;
  1159.         engpts[i] = 0;
  1160.       }
  1161.       
  1162.       for(i = 0; i <= CHASSIS; i+=1)
  1163.       {
  1164.         carscr[i] = 0;
  1165.       }
  1166.       
  1167.       for(i = 0; i <= ENGINES; i+=1)
  1168.       {
  1169.         engscr[i] = 0;
  1170.       }
  1171.       
  1172.       capitalise(store);
  1173.       strcpy(racenames[j], store);
  1174.       readline(store, inlen, scores_file);
  1175.       ndrivers = atoi(store);
  1176.       
  1177.       for(i = 1; i <= ndrivers; i+=1)
  1178.       {
  1179.         fscanf(scores_file, "%d %d %d", &grid[i], &drcar[i], &dreng[i]);
  1180.         fscanf(scores_file, " %d %d %d %d %d %d %d %d %d %d %d %d",
  1181.           &position[i], &status[i], &topsixpts[grid[i]], 
  1182.           &awardpts[grid[i]], &incgridpts[grid[i]], &warmuppts[grid[i]], 
  1183.           &retirepts[grid[i]], &noqualpts[grid[i]], &carpts[i], 
  1184.           &carscr[drcar[i]], &engpts[i], &engscr[dreng[i]]);
  1185.         readline(store, inlen, scores_file);
  1186.       }
  1187.  
  1188.       /* total up scores */
  1189.       for(k = 0; k < DRIVERS; k+=1)
  1190.       {
  1191.         driverscore[k][j]=topsixpts[k]+awardpts[k]+incgridpts[k]
  1192.           +warmuppts[k]-retirepts[k]-noqualpts[k];
  1193.         drivertotal[k]+=driverscore[k][j];
  1194.       }
  1195.       
  1196.       j+=1;
  1197.       readline(store, inlen, scores_file);
  1198.     }
  1199.     nraces = j-1;
  1200.     
  1201.     fclose(scores_file);
  1202.  
  1203.     printf("%s\n", verst);
  1204.     printf("Driver scores table\n");
  1205.      
  1206.     for(i = 0; i <= nraces; i+=1)
  1207.     {
  1208.       printf("                        ");
  1209.       if(i > 0)
  1210.         for(j = 0; j < i; j+=1)
  1211.           printf(" |  ");
  1212.       printf("%s\n", racenames[i]);
  1213.     }
  1214.     
  1215.     printf("+----------------------+");
  1216.     for(i = 0; i <= nraces; i+=1)
  1217.       printf("---+");
  1218.     printf("-----+\n");
  1219.     
  1220.     for(i = 1; i <= maxdrivers; i+=1)
  1221.     {
  1222.       printf("| %-20s |", namea[i]);
  1223.       for(j = 0; j <= nraces; j+=1)
  1224.         printf("%3d|", driverscore[i][j]);
  1225.       printf("%5d|\n", drivertotal[i]);
  1226.     
  1227.       printf("+----------------------+");
  1228.       for(k = 0; k <= nraces; k+=1)
  1229.         printf("---+");
  1230.       printf("-----+\n");
  1231.     }
  1232.     printf("\n");
  1233.   }
  1234.   
  1235.   exit(0);
  1236. }
  1237.  
  1238. void disperr(char *file_name)
  1239. {
  1240.   fputs(verst, stderr);
  1241.   fputs("Unable to open \"", stderr);
  1242.   fputs(file_name, stderr);
  1243.   fputs("\".\n", stderr);
  1244.   return;
  1245. }
  1246.  
  1247. void errorinfile(char *file_name, char *error, int line)
  1248. {
  1249.   fputs(verst, stderr);
  1250.   fputs("Error in file \"", stderr);
  1251.   fputs(file_name, stderr);
  1252.   fputs("\" on line ", stderr);
  1253.   fprintf(stderr, "%d", line);
  1254.   fputs(". ", stderr);
  1255.   fputs(error, stderr);
  1256.   fputs(".\n", stderr);
  1257. }  
  1258.  
  1259. int driver2no(char *driname)
  1260. {
  1261.   int  n;
  1262.  
  1263.   n = 1; 
  1264.   while((strcasencmp(namea[n], driname, 6)) && n <= maxdrivers)
  1265.     n+=1;
  1266.     
  1267.   if(n > maxdrivers)
  1268.     n = 0;
  1269.   
  1270.   return(n);
  1271. }
  1272.  
  1273. int chassis2no(char *chaname)
  1274. {
  1275.   int n;
  1276.   
  1277.   n = 1;
  1278.   while((strcasencmp(chassisa[n], chaname, 6)) && n <= maxchassis)
  1279.     n+=1;
  1280.   
  1281.   if(n > maxchassis)
  1282.     n=0;
  1283.     
  1284.   return(n);
  1285. }
  1286.   
  1287. int engine2no(char *engname)
  1288. {
  1289.   int n;
  1290.   
  1291.   n = 1;
  1292.   while((strcasencmp(enginesa[n], engname, 6)) && n <= maxengines)
  1293.     n+=1;
  1294.   
  1295.   if(n > maxengines)
  1296.     n=0;
  1297.     
  1298.   return(n);
  1299. }
  1300.   
  1301. int strcasencmp(char *stringa, char *stringb, int testnum)
  1302. {
  1303.   int  i;
  1304.   char string1[100], string2[100];
  1305.   
  1306.   strcpy(string1, stringa);
  1307.   strcpy(string2, stringb);
  1308.   
  1309.   for(i = 0; i <= strlen(string1); i+=1)
  1310.     string1[i] = tolower(string1[i]);
  1311.   for(i = 0; i <= strlen(string2); i+=1)
  1312.     string2[i] = tolower(string2[i]);
  1313.     
  1314.   return(strncmp(string1, string2, testnum));
  1315. }
  1316.  
  1317. void capitalise(char *word)
  1318. {
  1319.   word[0] = toupper(word[0]);
  1320.   return;
  1321. }
  1322.  
  1323. unsigned int readline(char *in_string, int chars_2_read, FILE *file_pointer)
  1324. {
  1325.   char temp[100];
  1326.   
  1327.   fgets(temp, chars_2_read, file_pointer);
  1328.   
  1329.   while(temp[0] == '#' && temp[1] == '#')
  1330.     fgets(temp, chars_2_read, file_pointer);
  1331.   
  1332.   strcpy(in_string, temp);
  1333.   in_string[strlen(in_string)-1] = 0;
  1334.   
  1335.   return(strlen(temp)-1);
  1336. }
  1337.